home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / dev / misc / fcxref.lha / FCXRef / Rexx / help_ged.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1999-02-09  |  1.2 KB  |  58 lines
  1. /* $VER: 1.0, ©1996 Dietmar Eilert. Empty GoldED macro */
  2.  
  3. OPTIONS RESULTS                             /* enable return codes     */
  4.  
  5. if (LEFT(ADDRESS(), 6) ~= "GOLDED") then    /* not started by GoldEd ? */
  6.     address 'GOLDED.1'
  7.  
  8. 'LOCK CURRENT RELEASE=4'                    /* lock GUI, gain access   */
  9. if (RC ~= 0) then
  10.     exit
  11.  
  12. OPTIONS FAILAT 6                            /* ignore warnings         */
  13. SIGNAL ON SYNTAX                            /* ensure clean exit       */
  14.  
  15. /* ------------------------ INSERT YOUR CODE HERE: ------------------- */
  16.  
  17. GEDport = address()
  18.  
  19. QUERY WORD
  20. func=result
  21.  
  22. if ~show(ports, FASTCREF) then
  23.  do
  24.   ADDRESS 'COMMAND' 'run >nil: Work:C/cref/FastCXRef XREFFILE=Work:C/cref/full3xref'
  25.   ADDRESS 'COMMAND' 'SYS:REXXC/WaitForPort FASTCREF'
  26.  end
  27.  
  28. ADDRESS FASTCREF
  29.  
  30. SEARCH stem a. WORD func
  31.  
  32. address value GEDport
  33.  
  34. if a.filename ~= "NONE" then do
  35.     if a.filename ~= "OFF" then do
  36.  
  37.         OPEN FAST NEW NAME a.filename
  38.         SET READONLY TRUE
  39.         GOTO a.linenumber
  40.  
  41.     end
  42. end
  43. else do
  44.     'REQUEST BODY "' func 'not found"'
  45. end
  46.  
  47. /* ---------------------------- END OF YOUR CODE --------------------- */
  48.  
  49. 'UNLOCK' /* VERY important: unlock GUI */
  50. EXIT
  51.  
  52. SYNTAX:
  53.  
  54. SAY "Sorry, error line" SIGL ":" ERRORTEXT(RC) ":-("
  55. 'UNLOCK'
  56. EXIT
  57.  
  58.